#lang racket


(require "../backends/main.rkt")

(require "ac-com.rkt")

(provide (struct-out autocad-shape)
         autocad-shape=?)


(define-struct (autocad-shape shape)
  (id))

(define (autocad-shape=? shape1 shape2)
  (com-object-eq? (autocad-shape-id shape1) (autocad-shape-id shape2)))